* complete.el (PC-do-completion): Don't replace buffer contents

(bug#227).

diff --git a/lisp/complete.el b/lisp/complete.el
index 95e116f7536b2b8ae0c2f43c8778f24b6a4fe0f4..6626b7b959eb05b0dfd684aceb63386d43aafb90 100644 (file)
--- a/lisp/complete.el
+++ b/lisp/complete.el
@@ -456,14 +456,7 @@ GOTO-END is non-nil, however, it instead replaces up to END."
     ;; Check if buffer contents can already be considered complete
     (if (and (eq mode 'exit)
             (test-completion str table pred))
-       (progn
-         ;; If completion-ignore-case is non-nil, insert the
-         ;; completion string since that may have a different case.
-         (when completion-ignore-case
-           (setq str (PC-try-completion str table pred))
-           (delete-region beg end)
-           (insert str))
-         'complete)
+       'complete
 
       ;; Do substitutions in directory names
       (and filename